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Welcome to 


Welcome to the first issue of Re:Port, 
the only newsletter dedicated to the Atari 
Portfolio computer! 

I think you’re going to enjoy what 
you’ ll read. And I know that you’ll love 
what you’ re going to find on the included 
disk. From handy hints to cutting-edge 
programs, Re:Port gives you what you 
need to make the Portfolio more useful. 

We won’t stay away from anything -- 
positive or negative, big or small, if it has 
to do with the Portfolio, we’ll tell you 
about it. But the Portfolio is the only 
topic we'll cover. Re:Port won’t waste 
time talking about the other palmtops out 
there. We know that you’re interested 
only in making the Port work for you, not 
comparing it with the rest of the market. 

Let me tell you a bit about myself 
before we jump straight into the Portfo- 


Re:Port! 


lio. I have worked at newspapers in 
Philadelphia, Tulsa, and Salem, Or- 
egon. Recently, I left newspaper 
journalism in order to pursue com- 
puter programming. After working 
more and more with the Portfolio and 
wishing there was a way that I could 
distribute more in-depth analysis of 
the machine and its uses, I realized 
that there was nothing in print about 
the Portfolio computer. 

So I decided to marry my journal- 
ism experience and my computer 
work, and Re:Port is the offspring. I 
hope that you enjoy it and find it 
useful. Don’t hesitate to let me know 
what I need to do to make this news- 
letter more of a power tool to aid your 
Port use. 

And happy computing! 


New PBASIC expands commands 


By BJ Gleason 
(c)1991, BJ Gleason 
Welcome to the PBASIC Program- 
ming Column. This column will focus 
: on developing applica- 


©. 


tions for the Portfolio us- 
= ing PBASIC. Since 
ON DISK  PBASIC is an offshoot 


of standard BASIC, and since this is a 
newsletter on programming and Portfo- 
lio use, I will assume that you, kind 
reader, know general BASIC program- 
ming. This column will focus more on 


Gleason on 


PBASIC 


the ‘‘Portfolio-only’’ and ‘‘PBASIC- 
only’’ features of the language. 
Portfolio-only features are func- 
tions and statements that will only 
work on the Portfolio. These func- 
tions and statements are unique to the 
Portfolio and use several of the 
Portfolio’s built-in ROM functions. 
Continued on Page 8 


What's Inside 


v DOS Tips include 
how to back up and 
restore your C: 
drive files to a RAM 
card using standard 
batch files. 
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VW MACRO.HOO is 
an amazing new pro- 
gram that expands 
your built-in editor 
to add any text, plus 
time and date. Full 
Pascal source code is 
included. 
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Y CHECK.WKS 
provides a quick way 
to keep your check- 
book balanced while 
you're on the road. 
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vY Wina 128K RAM 
card! Find out how 
to enter the incred- 
ible Re:Port 128K 
Giveaway. 
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The contents of this newsletter and its diskette are (c)1991 David E. Stewart 


Portfolio is a trademark of the Atari Corporation 
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From the Editor 


60 View opens window on text 


I’m happy to include 60 View.exe 
with your full-year subscription to 
Re:Port. I think you’ ll find the pro- 
gram both innova- 
tive and useful. 

I wrote the pro- Fe 
gram, and it origi- ON DISK 
nally was available to commercial 
buyers only for $25. 

60View is a file-reading program 
for the Portfolio, with an added bo- 
nus: It prints the text using a special 
font to create a 60-column by 10- 
row window on the screen! 


To run the program, it is neces- 
sary to have the following files in 
the same directory, either on the A: 
drive or the C: drive: 

60VIEW.EXE 

CHARDATA.DAT 

60CLDATA.DAT 

60View.exe is the program; the 
two .DAT files include information 
needed to make the small font. 

Type 60View to begin. The pro- 
gram will prompt you for the file 
that you wish to read. After that, the 
program will go into what I call 


**60-columns mode.”’ In future is- 
sues, we’ll discuss exactly what 
makes 60-columns mode work and 
how you can use this technique. 
The program will display one 
page at a time; hit a key to move on. 
When the program reaches the 
end of the text file, the Portfolio will 
beep twice. After that, hitting any 
key will return you to DOS. 
Thank you again for subscribing 
to Re:Port. Ithink you'll be pleased 
with the quantity and quality of Port 
software you're going to receive. 


ViewPort 


Non-disclosure policy slows Port development 


There are many good things to be said about the Port. 
There’ rea lot of bad things, too. One of the worst things 
about it is the virtual dribble of software available. 

Few software titles are available on ROM cards. 
Besides, the cards are too expensive anyway, some- 
times breaking the $100 mark for a single program. 

Many public domain and shareware titles are avail- 
able, but usually only through online services. And 
most are rewrites of very simple DOS programs that 
don’t even take advantage of the Portfolio’s built-in 
box-drawing commands. Of course, there are notable 
exceptions, such as BJ Gleason’s PBasic, that take full 
advantage of the Port’s special features. 

But there’s so much more than can be done. Who 
knows how many people have had ideas only to run up 
against the wall of the Port’s limits and hidden features? 

The problem is that Atari and Distributed Informa- 
tion Processing, the Portfolio's creator, have not made 
it an open system. The Port's real power is hidden, 
available only to those willing to pay $60 fora technical 
manual, or $160 to become a developer. Even the 
manual doesn’t cover advanced features such as direct 


graphics drawing, the built-in line-editor, and editor 
hooks (see the article on macros editor for an example). 

The manual is stamped CONFIDENTIAL. Devel- 
opers must sign a non-disclosure agreement, saying 
they won’t tell how they do their programming tricks. 

But many budding programmers probably have been 
turned off by the cost of becoming a developer and 
getting the manual. Not to mention the struggle of 
finding out the other information that isn’t in the book. 

What Atari needs to do is find a way to compile the 
techniques used to access the Port’s advanced features 
and put them all in one less-expensive book. And these 
techniques should be open to anyone. 

Only then will the mass of public domain and 
shareware programmers be able to create the volume of 
programs that are needed to encourage others to pur- 
chase and use the Portfolio. Not to mention the new 
uses that current owners could find. 

Re:Port will be dedicated to giving out as much 
programming information as possible; whatever isn’t 
found out from confidential Atari reports and manuals 
will be made public here. 


Re:Port 
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A:\DOS\TIPS 


Most IBM users who have Portfolios 
would love to have the same software 
work on both machines. In this column, 
we’ll explore which programs will work 
and which programs you shouldn’t even 
bother trying. 

We'll also answer any questions you 
may have about DOS and getting things to 
work on the Portfolio. 

One ofthe most productive utilities that 
I have running on both of my systems, 
desktop and Port, is the Norton DOS Edi- 
tor, NDE.COM, from Symantec. 

This small program (it is about 3100 
bytes) saves plenty of typing time. What 
it does is memorize everything you type 
on the command line. When you want to 
retype something, you just hit the up ar- 
row, and the program will scroll through a 
list ofthe commands you’ ve already typed. 
It’s great if you mistyped a long command 
and would like to do minor editing to it 
without retyping the whole thing (possi- 
bly to get it wrong again). 

The things to look at, in general, when 
running DOS programs on the Portfolio, 
are size and function. If the program is 
much larger than 64K, you might not want 
to bother trying to run it on the Port. Look 
for .COM files, not .EXE files. 

As far as function is concerned, don’t 
try to run anything that relies on pretty 
screen output. Basically, small command- 
line utilities such as GREP (to search text 
files), are what you’re looking for. 

On the lighter side, try an Infocom text 
adventure. These classic games include a 
setup program that lets you configure them 
for the 40 by 8 Port screen. And they just 
barely fit on a 128K card (you’ll need 11K 
of space on C: or another RAM card if you 
want to save your game). 

Unfortunately, Infocom doesn’t put out 
the old games anymore. If you can find a 
copy, let us at Re:Port know where, and 
we’ ll pass the information along. 


Backup, restore the C: drive 
using two DOS batch files 


The following batch files make backing and restoring files on 
the C: drive painless. 

You'll need a RAM card with at least as much free space as 
your C: drive. Put backup.bat and restore.bat 
on the RAM card's root directory. Then, type SS. 
md a:\backup and md a:\backup\system. 5 
These subdirectories will holdthe information QN DISK 
from your C: drive, and will keep the file out of sight if you use 
the card for other purposes. If you have other subdirectories on 
your C: drive, you need to type md a:\backup\X where X is 
the name of the directory on the C: drive. You'll also need to 
add another COPY command to each batch file to copy the 
other subdirectories. 

When you're ready to make a backup, put the RAM card in 
the drive and type A:BACKUP. And, in the event that you 
lose your C: drive, putthe RAM card in and type A:RESTORE. 

This easy technique should do the trick until next issue, 
when we'll feature a more versatile backup and restore utility. 


Listing of BACKUP.BAT 
@echo off 

cls 

echo Put backup card in A: and make sure 
echo that write protect is OFF 

pause 

cls 

echo Backing up 

copy c:\*.* a:\backup 

copy c:\system\*.* a:\backup\system 

echo Backup complete 


Listing of RESTORE.BAT 
@echo off 

cls 

echo Make sure backup card is in A: drive. 
echo Ready to begin restore 

pause 

cls 

echo Restoring 

copy a:\backup\** c: 

copy a:\backup\system\** c:\system 

echo Restore complete 
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The Editor 


MACRO puts text, time, date in documents 


The Portfolio’s built-in editor may seem too limited 
to do heavy word processing. There are not enough 
extra features -- no spell checker, no paginator, no print 
preview. And to top it off, the small 
keyboard makes typing a heavy task. 

But Atari recently released informa- 2 
tionto its developers about how to write 
programs that can expand the editor. ON DISK 
Here’s the first program to take advantage of this new 
concept, and it’s exclusive to Re:Port newsletter: 
MacroMaker. 

MacroMaker adds macros to the Portfolio’s built-in 
editor. Now you can worry less about the small 
keyboard; just make a macro out of anything that you 
type often (your address, for instance), and with just 
three keystrokes, it will jump into your document. 

Included on your diskette are two files that 
MacroMaker needs to run. They are: 

MACRO.HOO 

MACRO.TXT 

The first file, MACRO.HOO, is the most important. 
It is the actual program. Files with a .HOO extension 
are similar to regular .COM and .EXE program files, 
with two important differences. Files that end with 
.HOO can be called from the built-in editor, and they 
have access to several special text functions. 

However, the programs need not use those special 
functions. If you want to, you can rename your .COM 
or .EXE files into .HOO files, and you can run that 
program from within the editor (we’ll get to running the 
programs in a minute). So long as the program isn’t a 
memory hog, you can use the program as usual, and 
when you quit, you’ ll be right be in the same spot in the 
editor that you left off. 

Speaking of hogging memory, MacroMaker does 
have a strict memory requirement. Remember that 
you’re basically running two programs at once (the 
editor and MacroMaker). You must have at least 80K 
of free memory. Use the command CHKDSK to find 
out how much free memory you have. If you don’t have 
enough, use the FDISK command to set the size of your 
C:RAM driveto 16K. Make sure you back up your files 
first (see DOS TIPS for more information on how to 


This is macro #1, accessed by typing 0 
2k 


This is macro #2, accessed by typing | 
2k 


This is macro #3; it will print with no carriage return** 
Macro #4 
+k 


Macro #5 
ek 


Macro #6 
aK 


Figure I 


make that go more easily). 

In order to run MacroMaker, or any .HOO file, the 
.HOO file must be in the root directory of the A: drive 
(A:\). The editor only looks on the RAM card in the A: 
drive for its HOO files, not the C: drive. You’ll also 
need to put MACRO.TXT in the root directory of A:. 

Once the files are on your RAM card, start the editor 
(type app /e or hit Fuji-e). You may type as usual, but 
when you get to the point at which you want to insert 
macro text, hit Fn-6. This will call up a menu of .HOO 
files. If MACRO.HOO is the only one you have, just 
hit enter. The program will bring up a menu of your ten 
macros, showing the first 14 characters of each (it puts 
a carot “ in for carriage returns). 

Then, hita number, 0 through 9, for which macro you 
want to insert. The program will put this text into your 
document, and you may return to typing. 

You may also hit T or D, which will place the system 
time or the system date into the document. Make sure 
those are correct on your system, or they won’t come 
into the document correct. (To set them, type TIME 
and DATE from a DOS command prompt.) 

If you don’t want to use a macro, hit ESCape. 

MACRO.TXT stores the text of your macros. To 
change the macros, you need to edit MACRO.TXT. 

On your desktop PC or with the Portfolio’s built-in 
editor, call up MACRO.TXT. You can have ten 
macros; each can be up to 256 characters, and must end 
with two asterisks (see Figure 1 for an example). 

Now, you only have to type three characters to insert 
up to 256 characters into your text (Fn-6, Enter, and the 
number of your macro). 
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T h e E d ito ir MACRO.PAS source code 


{ Source for MacroMaker, (c)1991 David E. Stewart. Made available by Re:Port newsletter 


{ When compiling a Portfolio program using Turbo Pascal, you must turn all the compiler options OFF, especially 
{ the option to generate 286 codes. The Portfolio can’t process those codes. It is also necessary to set your 

{ memory limits (stack and heap) to the lowest possible sizes via the $M compiler directive. After compiling this 
{ program, you need to rename the .EXE file to a HOO file. 


{$M 10000,0,10000} program macromakertp(input,output); 
uses portfolio, dos, edhook; 
{ Portfolio is BJ Gleason’s unit that contains special Portfolio programming codes; edhook is David E. Stewart’s unit that 
contains code to access the editor hooks } 
{ The following constants set up the Days of the Week and the Months. You may change these if you wish to have 
abbreviations for the months, for instance } 
const 
days : array [0..6] of String[9] = (‘Sunday’,,Monday’, Tuesday’, Wednesday’, Thursday’,’Friday’,‘Saturday’); 
months: array [1..12] of string[12] =(‘January’,’February’,’March’,’April’,May’,'June’, July’, August’, 
‘September’, October’, November’, December’); 
var mac : array[0..1 1] of string; 
ch,holdch : char; = 
selected,a,b,x,y,limit,cursor : integer; 
macfile : text; @.- 
hit : boolean; 2 
year,month,day,dayofweek,Hour, Minute, Second, Sec!00 : word; ON DISK 
yearstr,daystr,hourstr,minutestr,secondstr,ampm : string; 
begin 
clrscr; 
cursor := portgetcursormode; {save the cursor mode} 
portsetcursormode(0); {turn off the cursor} 
portbox(0,0,39,7, |); {draw a box around the screen} 
gotoxy(4,0); {move the cursor and begin to put the menu up} 
write(‘MacroMaker’,#205,#205,#205,’Re:Port newsletter’); 
gotoxy(2,1); 
write(‘T: Time D: Date’); 
assign(macfile,'a:\macro.txt’); | {open the macro file} 
reset(macfile); 
for a := 0 to 9 do mac[a] = °; 
a := 0; 
{ The following routine reads the macros into mac[0] through mac[9], placing a #0 (terminating zero) character at the end 
of each string. This #0 is *very* important. Otherwise, you'll get garbage in your strings } 
while not eof(macfile) do begin 
read(macfile,ch); 
if ch = * then begin 
holdch := ch; 
read(macfile,ch); 
if ch <> ® then mac[a] = mac[a] + holdch else begin 
mac[a] := mac[a]+#0; 
hit := true; 
read(macfile,ch); 
inc(a); 
end; 
end; 
if (not hit) and (ch <> #10) then mac[a] := mac[a] + ch; 
hit := false; 
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T h e E d ito ir MACRO.PAS source code 


end; 
close(macfile); 
for b := a to 9 do mac[a] := #0; {clear unused macros} 
x= 2; 
y = 2; 
for a := 0 to 4 do begin {put the macros 0-4 on-screen} 
gotoxy(x,y); 
write(a,’: ‘); 
if length(mac[a]) < 14 then limit = length(mac[a]) else limit := 14; 
for b := | to limit do begin 
if mac[a,b] = #13 then ch := “’ else ch := mac[a,b]; 
write(ch); 
end; 
inc(y); 
end; 
x= 21; y = 2; 
for a := 5 to 9 do begin {put 5-9 on screen} 
gotoxy(x,y); write(a,’: ‘); 
if length(mac[a]) < 14 then limit := length(mac[a]) else limit = 14; 
for b := | to limit do begin 
if mac[a,b] = #13 then ch := ‘”’ else ch := mac[a,b]; write(ch); 
end; 
inc(y); 
end; 
ch := #0; 
{ Now, wait for a keypress. It must be 0-9, T, or D } 
while ((ord(ch) > 57) or (ord(ch) < 48)) and (ord(ch) <> 27) 
and (upcase(ch) <> ‘T’) and (upcase(ch) <> ‘D’) do while not keypressed; do ch := readkey; 
if ord(ch) <> 27 then begin 
selected := ord(ch) - 48; {change keypress to number} 
{ The following routine puts the system time in a nicely formatted string, remembering to add a #0 at the end } 
if upcase(ch) = ‘T’ then begin 
selected := 10; GetTime(Hour, Minute, Second, Sec! 00); 
if hour > || then ampm := ‘p.m.’ else ampm := ‘a.m.’;; 
if hour = 0 then hour := 12; 
if hour > 12 then hour := hour - 12; 
str(hour,hourstr); str(minute,minutestr); 
if minute < 10 then minutestr := ‘0’ + minutestr; 
mac[!0] := °; mac[10] := hourstr + ‘’ + minutestr + ‘‘ + ampm + #0; 
end; 
{ The following routine puts the system date in a nicely formatted string, remembering to add a #0 at the end } 
if upcase(ch) = ‘D’ then begin 
selected := | 1; GetDate(Year, Month, Day, DayOfWeek); 
str(year,yearstr); str(day,daystr); 
mac[I 1] := °; mac[I 1] := days[dayofweek]+’, ‘+months[month]+’ ‘+daystr+’, ‘tyearstr + #0; 
end; 
{ The next command, port_insert_macro, takes any string and inserts it into the editor file. It is included in 
EDHOOK.TPU } 
port_insert_macro(mac[selected]); 
end; 
portsetcursormode(cursor); {reset the cursor} 
end. 
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The Worksheet 


CHECK.WKS keeps everything nicely balanced 


If you’re like me, you don’t keep very good track of 
the checks you write. And if you’re traveling, the 
problem is compounded. But if you’re pes with 
your Portfolio, you’re in luck. The 
built-in Worksheet application can serve 
as a quick-and-dirty checkbook recorder e 
and balance calculator. ON DISK 

Using it, you can be sure that you’re not spending 
beyond your means during your trip. And you’ll know 
that you’ re keeping track of your checks. Best ofall, it’s 
simple and doesn’t take much time. 

Included on your disk is CHECK. WKS. Load it into 
the Port’s worksheet application. 

The worksheet includes some sample fields that 
you’ll want to delete. However, don’t delete the first 
row. It contains the equation that calculates your 
balance. It’s very simple: @sum(a2..a255). That 
formula adds all the check and deposit amounts. The 
worksheet can handle 253 transactions. 

In order for this to work, you need to enter the 
amount of the check. Make sure you put a minus sign 
before the amount if its a withdrawal. After you hit 
enter or a cursor key, the minus sign will go away and 
the number will be enclosed in parentheses. All the 
numbers are formatted as currency (hit the Atari fuji 


key, choose Defaults, Formats, and Currency), so the 
dollar sign and paranthesis for negative numbers appear 
automatically. 

Leave it positive if it’s a deposit of any kind. 

Whenever you make a change or add a transaction, 
the current balance number on the first line of the 
worksheet will be updated (If you’ve entered many 
transactions and can no longer see the top line, hit Fn- 
up arrow (home), and the worksheet will move to the 
top line). 

After entering an amount, move the cursor to the 
right, and then type a description of the transaction. 
Entera check number, who the check was written to, the 
date, what you bought, or anything else that you wish 
to remind you of what the transaction was. 

You’ll note that the second line ofthe worksheet says 
“*Opening balance,’’ which you’ll need to put in before 
adding any checks to the worksheet. Simply type in the 
amount of money that is in your checking account 
before you leave for your trip or start keeping track of 
checks on the Portfolio. 

Of course, this will work for savings, cash, credit 
card, orany other kind ofaccount that uses a credit/debit 
scheme. Make a copy of CHECK.WKS for each ac- 
count you want to keep track of. 


The Address Book 


The Portfolio makes a great study partner 


swer. The card with the answer will 


It’s school time again, and the Port 
can help your kids (or you) study. 

The address book application can 
also be used as a database. One 
feature is that it can display a list of 
titles of each entry. And this can 
make the Port a perfect study mate. 

When you’ re ready to start study- 
ing, open a new address book file 
and start typing. Put the question or 
subject that you'll need to know 
about on the top line. Then, type the 


answer or information that you 
should know about it under the line. 

After you’ve entered the infor- 
mation, save the address book and 
get back to the list of topics (if 
you’re looking at a card with the 
answer showing, just hit ESCape). 

Now, you can study at your own 
pace. Read the questions on the list. 
Move the cursor to the topic you 
want to focus on, then hit enter 
when you think you know an an- 


pop up, so youcan check your work. 

This has thousands of scholastic 
applications. For instance, you can 
study for vocabulary tests by put- 
ting each word on the subject line 
and typing the answers on each card. 
Or you could study for history tests 
by putting events on the subject line 
and putting the date of the event on 
each card. It’s limited only by your 
scholastic needs. 
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To use these features on machines other than the 
Portfolio, you will need the ‘‘Portfolio Emulation 
Software," from Atari Corporation. With the emula- 
tions software loaded, you can then use the ‘‘-E”’ switch 
(for Emulation) to trick PBASIC into thinking that you 
are running on the Portfolio instead of the PC. Be 
warned: If you use the -E switch without the Emulation 
software, youcan lockup your machine. Portfolio-only 
features include MENU, BOX, EDITS, and others. 

PBASIC-only features are statements and commands 
that are uniqueto PBASIC. These features will work on 
botha PC anda Portfolio, without problems, but are not 
included in most other BASICs. One of the nice things 
about writing a language is that I can add features to it 
that I always thought were lacking in other versions. 
These features include EVAL, EXITCMD, NUMFMT, 
WKSREAD and others. 

In each column, I will discuss a few of these features 
and show you how to use them so you can include them 
in your own programs. 

First, let's start out by looking at the new features of 
PBASIC 4.7. 


NEW FEATURES FOR VERSION 4.7 

New Statements: EXITCMD, EXITCODE 

New Functions: INSTAT, ISALTR, ISRUN 

Multi-lined IF/THEN/ELSE/ENDIF. 

Modified parameters for MENU( to allow for 
more flexibility. 

Maximum size of string is now 350 characters. 
This change the way SCRLOAD and SCRSAVE can 
operate. 

Added PBCOMP to allow for .BAS source code 
compression. Auto-detection and decompression on 
load. Reduces source code by up to 60% 

Disabled -T parameter for compressed/encode 

programs. 

There were also a fair number of bug fixes, see the 
PBASIC.TXT file for a complete list. 

Let’s take a closer look at some of these features. 

EXITCMD s$ 

This will exit PBASIC, and place the contents of s$ 
in the keyboard buffer. If your program was creating 
some data files, you might want to list them when the 
program ends to alert the user of their presence and 


a BAS i Cc Continued from Page | 


remind them to back them up: 
PRINT “Data Files were Created.” 
PRINT “Please back them up.” 
EXITCMD “dir *.dat” 
Data Files were Created. 
Please back them up. 
A>dir *.dat 


seeee 


EXITCODE n 

Exit PBASIC, and set MS/DOS ERRORLEVEL 
variable to n. ERRORLEVEL can be tested in a batch 
file. 

CLS 

PBASIC myfile 

IF ERRORLEVEL 5 GOTO :ERROR 


MULTI-LINE IF/THEN/ELSE/ENDIF 
IF exp THEN 
statements 
[ ELSE 
statements ] 
ENDIF 
In an effort to make PBASIC programs more struc- 
tured and more readable, a multi-line IF statement has 
been added. Multi-line IF statements may not be 
nested. There can not be anything afterthe THEN or the 
ELSE on the same line, or it will be recognized as a 
single line IF. 


ISALTR 
Returns -1 if ALTR.COM is loaded, 0 otherwise. 


ISRUN 

Returns -1 if current program was executed via the 
RUN ‘‘filename’’ statement from another program. 
This is used extensively in this month’s program. 

IF ISRUN THEN RUN “MENU” ELSE END 


PBCOMP.EXE 

PBCOMP was designed to compress PBASIC files. 
The compress ratio varies, from 60% to 40% depending 
on the program. Once a file in compressed, there is no 
Continued on Page 9 
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way to decompress it. There is no difference in running 
the file. PBASIC will automatically detect and decom- 
press a compressed file. 

This program is supplied to allow developers to 
write programs in PBASIC and distribute them without 
releasing the source code ofthe program. It also allows 
users to have more programs on a RAMcard. 

For security reasons, a program can not be decom- 
pressed, so be sure to keep a regular copy of the code, 
in case changes need to be made. 


THIS MONTH’S PROGRAM: MENU.BAS 

PBASIC comes with a number of sample programs 
to demonstrate the different features. In this month’s 
program, we will construct MENU.BAS, a program 
that will allow us to run these sample programs from a 
two-level menu. 

The idea behind the menu program is to allow users 
to select a program, execute it, and then return to the 
top-level menu. To achieve this, we will first have to 
modify each sample program to include the following 
line, in place of the normal exit: 

IF ISRUN THEN RUN “MENU” ELSE END 

This will check to see if the program was executed 
from the command line (pbasic program.bas) or via the 
RUN statement (run ‘“‘program.bas’’). If execution is 
via the RUN statement, we will re-run the MENU 
program, otherwise, it will have no effect, and will 
return back to DOS. This line has already been added 
to the programs contained on the disk. : 

Now onto the Menu program itself. Since we are 
going to save screens, we want to set string size to 350. 
We then want to create the arrays for the menu choices. 
“ set string size 
ssize=350 
* Declare our main and auxiliary menu arrays 
dim m$(7), a$(7) 

Now we will create the menu matrix. One of the 
features of this program is that as we add new programs, 
we don’t have to change the program, just the data. The 
menus are created dynamically. 

Here is the matrix of programs. The first element in 
each line is an option on the main menu, as well as the 
title for the auxilary menu. The data lines need to be 
numbered from 1, with the last data line containing only 
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the null ‘*’’ string. Then the entire list of programs for 
the auxilary menu are listed, followed by the null ‘*’’ 
string. Notice the program names do not have “‘.BAS”’ 
on them, since it is automatically added by the RUN 
command. 

| data “Recreation”, "ETCH”, "QCHESS”, "REDDOG”, 
"REV”, "VADERS”, ”” 

2 data “Music”, "BACH", "BACH2", "BDAY”, 
“KRIEGER”, "PETER", ”” 

3 data “Graphics”, "2CURVE”, "BAR”, “CIRCLE”, 
”"PGDEMO”, "WKSPLOT”, ”” 

4 data “Time”, "WTIME”, "IOODAY”, "ADDTIM”, 
"DANS" 

5 data “Other”, "AREACD”, SIEVE”, "TEST47", 
"GATE40", "TERMINAL”, ”” 

6 data “” 

Now we will initialize and create the main menu. 
Starting with data line 1, we will read the first string. 
This will be a selection from the main menu, as well as 
the title of the auxiliary menu. We fill the M$() array 
until we reach the ‘*’’ string (currently on data line 6). 
cls 
cline=O ‘ Current Line 
select=0 ‘ Selected Item 
ment=0 ‘Main Menu Count 
done=false 
repeat 

restore mcnt+ | ‘ Point to data line 

read m$(mcnt) * Read Title 

if m$(mcnt)<>"” then mcnt=mcnt+ | else done=true 
until done 

The creation of the main menu only needs to be done 
once, since it will not change. The auxiliary menus 
need to be created each time. Now to display the menu, 
we use the Portfolio Only function MENU. Let’s take 
a closer look at the MENU function. 

x=MENU(row, col, display, top line, selected, ele- 
ments, “Title”, entries....) 

Rowand Col indicate the location of the menu on the 
screen. Display is the number of elements to display at 
onetime. The maximum is 6. You can have more than 
six elements in a menu, but only 6 can be displayed at 
any time. You can use the arrow keys to scroll through 
the menu. 

Top Line is element at the top of the menu, and 


Selected is the element that the cursor is placed on. 
Continued on Page 10 
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Normally both of these are initialized to 0, to place the 
first element at the top of the menu and place the cursor 
on it. We will use variables for these, so that if a user 
returns from a sub-menu, by pressing <ESC>, the 
cursor will still be on the same menu element. 

Elements is the number of menu entries plus the 
Title. The title string is first, followed by each entry. 
Each element can be a string or a string variable. 
Starting with version 4.7, you can have more entries 
than elements specifies. This allows for more flexible 
handling of the menus. After element number of 
entries, the rest are ignored. 

Armed with this knowledge, let’s create the menu. 


10 mc = menu(I,!,ment,cline,select,ment+ | ,”"PBASIC 
Menu”, 


m$(0),m$(1),m$(2),m$(3),m$(4),m$(5),m$(6),m$(7)) 

We have allowed for up to eight entries, M$(0) to 
MS(7), which is more than we currently have. This will 
allow you to quickly add more sample programs to the 
list without modifying the program. 

This will display a menu, allow a selection, and will 
return the item selected. The menu elements are 
numbered from 0. If value returned is -1, then the 
escape has been pressed. Ifthe value returned is > 255 
then (value % 256) is the selected element, and (value 
\ 256) is the top line. 

Here is the code to find the selected item, as well as 
the top line, so that we can go back to the item. Let’s 
also handle the <ESC> key from the main menu. 
select = mc % 256 ‘Determine the item selected 
cline = mc \ 256 ‘ Determine top line so we can go back 
if select=-| then clsiend ‘ Hit <ESC>? Exit... 

If we have gotten this far, we now want to create, 
display, and select from an auxiliary menu. Using the 
RESTORE statement, we can move the data pointer 
back to the proper data statement. We will then read the 
title, and then the elements in the A$() array. 
restore select+| ‘ Point to selected data line 
read title$ ‘Read Title ocnt=0 done=false repeat 
read a$(ocnt) ‘ Read the Programs 
if a$(ocnt)<>”” then ocnt=ocnt+| else done=true 
until done 

Now we want to display the menu. Before we 
display it, we want to save the current screen, so that we 
can come back to the main menu. While we could use 
CLS before moving back to the main menu, the 
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SCRSAVE and SCRLOAD make for a much smoother 
transition. 

To save a screen, using SCRSAVE, requires 320 
bytes of memory. To save it in a single string, we need 
to set SSIZE to 321 or more. We have already set it to 
350 at the beginning of the program. 

After saving the screen, we need to display the 
auxiliary menu, handle the <ESC> key, to return to the 
main menu. 
scrsave s$ ‘ Save the current screen 
‘ display the aux menu 
mc=menu(I,10,ocnt,0,0,ocnt+ I,title$, a$(0), a$(1), a$(2), 
a$(3), a$(4), a$(5), a$(6)) 
pick = mc % 256 ‘Determine which Program 
‘ <ESC>? Restore Screen, return to Main Menu 
if pick=-| then scrload s$:goto 10 

Finally, we can run the program: 
cls 
run a$(pick) ‘Run the Program 

If you want to add your own programs to this list, we 
can modify the program table easily enough. If you 
want to add a section entitled ‘‘Travel’’, and a few 
programs called: ETA.BAS, and MPG.BAS, we would 
replace data line 6 and add data line 7: 

6 data “Travel”,”"ETA”,”MPG”,”” 
7 data “” 
The entire program is available on the included 
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diskette as MENU.BAS. 


PROGRAMMING TIP 

Often in a program, you must ask a question like 
“*Exit (Y/N)?’’ or ‘‘Play Again (Y/N)?’’ or some 
variation thereof. Processing this (did the person type 
““y”?, “*y?? or ‘*Yes’’?) can be a pain. The MENU 
function can make this much easier. 


me = menu(2,2,2,0,0,3, *Exit?”,“*Yes", *‘No") 
This will return 0 for Yes, 1 for No, and a -1 for 
<ESC>. 
FUTURE COLUMNS 
Graphics Program with .PGC files 
Window Routines 
Worksheet Importing 
Serial Communications 


Industry News 
XoteriX withdraws 512K; Atari releases BASIC 


Unfortunately for Portfolio owners who want more 
memory, Mark Henderson of XoteriX has announced 
that the company’s 512K RAM expansion has been 
withdrawn. 

Henderson has also said that the planned 20-mega- 
byte hard drive that mounts under the Port hasn’t gone 
into production. He cites lack of firm orders for this. 

XoteriX has sent out advertisements for Data To Go 
($99), a portable database that works on all popular 
palmtops including the Portfolio. From the looks ofthe 
brochure I’ve seen, it looks like this program even 
includes pull-down menus! Call XoteriX at 1-818-888- 
7390 for more information. 

Don’t despair if you do need more memory, because 
Megabyte computer of Texas has an internal 512K 
upgrade available ($350). For information call 1-817- 
589-2950. Or, you can catch them at the Houston Atari 
Computer Enthusiasts’ (HACE) Atari Safari. 

The Atari Safari will be from 11 a.m. to 5 p.m. Sept. 
28 in the Senate Room at the Holiday Inn, 7611 Katy 
Freeway, Houston, Texas. Admission is $2. 

John Hauser, sysop of the HACE BBS, says that in 
addition to Megabyte, several users will have Portfolios 
and will be around to answer questions. He says that 
one HACE board member runs a spreadsheet on the 
Port that is the same as one that runs on his $15;000 
Compaq -- and it really surprises some of his oil- 
industry clients! Plus, Bob Brodie of Atari will be on 
hand. If you’re dying to hob-nob with other Port users, 
Atari Safari may be just the thing. 


Here’s something for the well-dressed Port user -- 
Portfolio T-shirts ($9.99, plus $1.50 shipping and 
handling). Designed by Robert Bucaro, it shows the 
Portfolio and says ‘‘THE WORLD’S FIRST (IBM XT) 
HANDHELD COMPUTER..”’ Contact Bucaro at 252 
Maple Avenue, Wallington, N.J. 07057. 

Well, what has Atari done for us lately? The big 
news is that PowerBasic ($99) should be shipping to 
dealers as you read this, according to Atari’s Don 
Thomas. Asa PowerBasic beta tester, I can tell you that 
this is a nice piece of software. But it depends on your 
needs whether you’d want to stick with Gleason’s 
PBASIC or move to PowerBasic. The only advantage 
of PowerBasic is that it can create stand-alone programs 
which are faster than running PBASIC. 

However, after all the compiling is said and done, 
and knowing that you also have to have a run-time 
module present to run PowerBasic programs, the 
memory and RAM card requirements aren’t much 
different. 

Atari is also shipping a new version of their A.P.B 
($1) -- the accessories and peripherals bulletin. It’s 
simply the only catalog of what’s available for the 
Portfolio, including some shareware and public domain 
files. This is a must-have. To get one, write to Don 
Thomas, marketing manager, at 1196 Borregas Ave., 
Sunnyvale, CA 94089. 

A shorter version of the A.P.B. is also available on 
the Atari BBS in an ASCII text file format. Call 1-408- 
745-2191 (1200-baud modem) for that. 


Page 12 


Re:Port wants to hear from you. If you have questions about the 


announcements of a new software or hardware product, send a letter to: 


David E. Stewart, Editor 
Re:Port Newsletter 

1618 South Beech Court 
Broken Arrow, OK 74012 


Or you may contact me at the following network addresses: 


CompuServe: 73770,2021 
GEnie: DSTEWART.28 


In the Buffer 


In the next issue, look for many 
other articles that will help you make 
the Port work for you. 


Contest 


Our featured utility will be 
BACKUP and RESTORE, two pro- 
grams that will make backing up 


Re:Port 


Portfolio, tips for other users, or 
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your Portfolio RAM drive quick 
and easy. Also, an incredible spell 
checker. Look for it November 1! 


Enter to win the Re:Port 128K Giveaway! 


Everyone wants RAM cards for 
their Portfolio, but unfortunately, a 
128K card can cost half as much as 
the machine itself! But now here’s 
your chance to get one at a very 
good price -- free. 

Well, almost free. This is a con- 
test, and these are the rules. 

Write a story telling us some- 
thing about the Portfolio. Perhaps 
its your favorite way to use it, or the 
way someone else has reacted to 
seeing you work with the Port. 

Keep the story down to fewer 
than 500 words, and send it to: 

Re:Port 128K Giveaway 

1618 S. Beech Ct. 

Broken Arrow, OK 74012 
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Make sure that you include your 
name and return address. 

The winner of the contest will 
receive one 128K RAM card, cour- 
tesy of Re:Port newsletter. The 
winning story also will be published 
in the November-December issue. 

Contest entries must be post- 
marked by October 18. The 128K 
Giveaway is open only to one- or 
two-year subscribers to Re:Port. 

Good luck! We can't wait to start 
judging your entries. And, by the 
way, we'd be tempted to give bonus 
points to anything that was typed 
using only the Portfolio's built-in 
editor! All entries become Re:Port 


property. 


Please note that this con- 
test is not open to anyone 
who is not a paid, full-year 
subscriber to Re:Port news- 
letter. 

To subscribe, send $50 for 
one year of six issues, or $90 
for two years (12 issues) to: 

David E. Stewart, editor 

Re:Port newsletter 

1618 S. Beech Ct. 

Broken Arrow, OK 74012 

U.S. funds only, please. 
And be sure to include your 
IBM-format diskette size. 


